#!
$string = "This is me!";
print "matched\n" if($string =~ /This/);
print "not matched" if($string !~ /you/);
